MacWorld 1997 September/Macworld (1997-09).dmg/Serious Software/Cherwell Scientific Demos/pro Fit/pro Fit 5.0 demo (fpu).sea/pro Fit 5.0 demo (fpu)/Functions & Programs/•Gadgets/Covar. Matrix -> Data Window

Text File | 1996-06-02 | 765b | 26 lines

{
 this programs writes the covariance matrix of the last
 fit in the top left corner of the frontmost data window.
 (Row and column numbers correspond to parameter indices.)
 It also writes the parameter values resulting from the fit and
 their standard deviation in two lines below the covariance matrix,
 with an empty line as a separation.
 On the last line it writes the value of chi-squared.
}

program FitInformationToDataWindow;
var i,j,k:integer;
begin
 NewWindow(dataType);
 k:=numFitParams;
 if k>0 then
 begin
        for i:=1 to  k do
         for j:=1 to  k do
                data[i,j]:= CovarMatrix(i,j);
        for i:=1 to k do    ClearData(k+1,i);
        for i:=1 to k do data[k+2,i]:=FittedParams(i);
        for i:=1 to k do data[k+3,i]:=ParamSD(i);
        data[k+4,1]:=chiSquared;
 end;
end;